﻿Public Class allProfiles
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Function getDate(ByVal dateTime As String) As String
        If (dateTime = "") Then
            Return "UNKONWN"
        Else
            Dim parts As String() = dateTime.Split(" ")
            Return parts(0)
        End If
    End Function
End Class